﻿Imports System.Data
Imports Comunes
Partial Class AppFront_Servicios_ConeccionesAJAX_ServicioPasswordAJAX
    Inherits cls_sesion

#Region "VARIABLES"
    Dim miDS As New DataSet
    Dim objJSon As New clsJsonSR.clsJsonSR
    Dim str_respuestaJson As String = ""
    Dim objPwdApp As New cls_pwdApp

#End Region

#Region "EVENTOS DE LA PAGINA"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If USUS_USUARIO.ToString <> "" Then
                Select Case Request.Form("accion").ToString
                    Case "grabarNuevaClave"
                        objPwdApp.p_str_old_password = Request("p_str_old_password")
                        objPwdApp.p_str_new_password = Request("p_str_new_password")
                        objPwdApp.USUS_NID = USUS_NID
                        str_respuestaJson = objPwdApp.grabarNuevaClave()
                End Select
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Response.Write(str_respuestaJson)
    End Sub
#End Region
End Class
